home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / PushButton.p < prev    next >
Encoding:
Text File  |  1994-12-05  |  1.5 KB  |  33 lines
  1. temp <- <primitive 110 1 >
  2. <primitive 112 temp 1  " initialize:withArray: " \
  3.     #( #[ 34 81 177 115 34 82 177 116 34 83 177 117 34 84 177 \
  4.  118 34 85 177 119 34 86 177 120 34 87 177 121 34 88 \
  5.  177 122 34 89 177 125 34 48 177 126 5 30 49 176 7 \
  6.  17 5 30 88 176 7 18 5 30 49 176 7 19 5 30 \
  7.  88 176 7 20 66 160 123 66 160 124 66 160 127 66 160 \
  8.  7 16 51 7 17 2 17 82 39 208 242 2 17 85 38 \
  9.  208 242 2 17 87 38 81 193 208 242 2 17 49 39 81 \
  10.  193 208 242 52 7 18 2 18 87 2 17 208 242 47 53 \
  11.  2 18 130 6 242 55 7 19 2 19 81 38 208 242 2 \
  12.  19 83 38 208 242 2 19 84 39 208 242 2 19 86 39 \
  13.  208 242 2 19 88 39 81 193 208 242 2 19 89 38 81 \
  14.  193 208 242 2 19 48 39 81 193 208 242 2 19 56 38 \
  15.  81 193 208 242 57 7 20 2 20 87 2 19 208 242 2 \
  16.  20 88 53 208 242 43 33 58 11 17 2 20 130 6 242 \
  17.  2 18 83 81 208 242 2 18 87 2 17 208 242 2 16 \
  18.  59 2 18 130 6 242 2 20 83 82 208 242 2 20 87 \
  19.  2 19 208 242 2 20 88 59 208 242 44 33 60 11 17 \
  20.  2 20 130 6 242 42 61 197 81 192 122 40 62 197 82 \
  21.  192 120 43 96 44 97 32 33 63 146 6 242 245] \
  22.     #( 10 12 #Border #( 0 0 0 0 0 0 0 1 1 1 1 0 ) #( 0 0 2 0 0 6 0 'NULL' ) \
  23.       'tb1' #initialize:withArray: #( 0 0 0 0 0 0 1 0 0 0 0 0 ) 11 \
  24.       #( 0 0 1 0 0 6 0 0 ) 'Bdr1' 'tb2' 'Bdr2' 16rF0F0 16rFFF0 \
  25.       #( #ng #le #te #w #h #f #a #gt #gr #sr #txt #id )  ) ) >
  26.  
  27. <primitive 98 #PushButton \
  28.     <primitive 97 #PushButton #BoolGadget #Intuition/PushButton.st \
  29.     #(  #renderName #selectName ) \
  30.     #( #initialize:withArray:  ) \
  31.     temp 21 8 > >
  32.  
  33.